home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTH / H166B.ZIP / L2.ZIP / COUNTING.SEQ next >
Encoding:
Text File  |  1990-03-25  |  145 b   |  9 lines
  1.  
  2. \ Loop Demo program that counts from 0 up to n.
  3.  
  4. : COUNT_UP ( n -- )
  5.         1 +  0 ?DO
  6.                   CR I .
  7.                LOOP ;
  8.  
  9.